use Modern::Perl;
use Mail::Box::Manager;
use Mojo::IOLoop;
use Test::More;

my $manager = Mail::Box::Manager->new;

my $folder;

print "START\n";
my @childs;
my $pid = fork();
my $cpid;

if ($pid) {
  $cpid = $pid;
} elsif ($pid == 0) {
  while(1){}
  exit 0;
} else {
  die "couldn\'t fork: $!\n";
}
waitpid($cpid,0);


if ($folder) {
  print "inbox is right\n";
  print "child pid is: $cpid\n";
} else {
  print "inbox is wrong\n";
  print "child pid is: $cpid\n";
  #`kill -9 $cpid\n`;
}


print "END\n";

